home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_a9x / fat.ada < prev    next >
Text File  |  1996-01-30  |  437b  |  24 lines
  1. PRAGMA LIST(On);
  2.  
  3. WITH Ada.Text_IO; USE Ada.Text_IO;
  4.  
  5. PROCEDURE Factorial IS
  6.     FUNCTION Fat(N : Integer) RETURN Integer IS
  7.     BEGIN
  8.         IF N <= 1 THEN
  9.             RETURN 1;
  10.         ELSE
  11.             RETURN N * Fat(N - 1);
  12.         END IF;
  13.     EXCEPTION
  14.         WHEN Numeric_Error =>
  15.             return -1;
  16.     END Fat;
  17. BEGIN
  18.     FOR I IN 2 .. 8 LOOP
  19.         Put("O Fatorial de ");
  20.         Put(Integer'IMAGE(I));
  21.         Put(" e' ");
  22.         Put_Line(Integer'IMAGE(Fat(I)));
  23.     END LOOP;
  24. END Factorial;